home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / comm / scr104a.zip / PCBQM4.TEM < prev    next >
Text File  |  1992-01-09  |  3KB  |  154 lines
  1. If $ne("@gateway","")
  2.    When "@gateway" "@response"
  3. EndIf
  4. If $ne("%port","@vport")
  5.    Set Port=@vport
  6. EndIf
  7.  
  8. When More? n^M
  9. When more? n^M
  10. When "ore >" n^M
  11. When "no change?" ^M
  12. When raphics "~@ansi^M"
  13. When prompts ~^M
  14. When "to continue" ^M
  15. While not Connected
  16.    Dial/@waittime "@numberA" "@numberB" "@numberC" "@numberD"
  17. EndWhile
  18.  
  19. Wait "first name?"
  20. If $ne("@gateway","")
  21.    EndWhen "@gateway"
  22. EndIf
  23. EndWhen "no change?"
  24. EndWhen raphics
  25. EndWhen prompts
  26. When (Enter)=yes? n^M
  27. SendWait "@name @pword^M" "@mmprompt" "nue?"
  28. If Had 2
  29.    SendWait ^M "@mmprompt"
  30. EndIf
  31. EndWhen (Enter)=yes?
  32. %ufile := "@packet.FUL"
  33. %handle := fopen %ufile
  34. If %NoError
  35.    %handle := fsize %usize
  36.    If %usize # 0
  37.       SendWait u^M (Enter)=none?
  38.       %handle := fread %fname
  39.       While NoError
  40.          $rchpos %i %fname "\"
  41.          If %i # %maxint
  42.             Inc %i
  43.             $delete %fname 0 %i
  44.          EndIf
  45.          SendWait "%fname^M" (Enter)=none?
  46.          %handle := fread %fname
  47.       EndWhile
  48.       %handle := fclose
  49.       SendWait ^M **B01 "=continue"
  50.       If Had 2
  51.          SendWait ^M **B01
  52.       EndIf
  53.       Upload zmodem .%currdir\%ufile
  54.       Wait "@mmprompt"
  55.       If %NoError
  56.          If $eq("@confirm","Y")
  57.             Ask "Delete %ufile? (Y/N) " %reply 1 1 Y
  58.             $caps %reply
  59.          Else
  60.             %reply := "Y"
  61.          EndIf
  62.          If $equal %reply Y
  63.             Delete %ufile
  64.          EndIf
  65.       EndIf
  66.    Else
  67.       %handle := fclose
  68.       Delete %ufile
  69.    EndIf
  70. EndIf
  71.  
  72. %dfile := "@packet.FDL"
  73. %handle := fopen %dfile
  74. If %NoError
  75.    %handle := fsize %dsize
  76.    If %dsize # 0
  77.       SendWait d^M (Enter)=none?
  78.       %handle := fread %fname
  79.       While %NoError
  80.          $rchpos %i %fname "\"
  81.          If %i # %maxint
  82.             Inc %i
  83.             $delete %fname 0 %i
  84.          EndIf
  85.          SendWait "%fname^M" (Enter)=none?
  86.          %handle := fread %fname
  87.       EndWhile
  88.       %handle := fclose
  89.       SendWait ^M **B00 "=continue"
  90.       If Had 2
  91.          SendWait ^M **B00
  92.       EndIf
  93.       Download zmodem !
  94.       Wait "@mmprompt"
  95.       If %NoError
  96.          If $eq("@confirm","Y")
  97.             Ask "Delete %dfile? (Y/N) " %reply 1 1 Y
  98.             $caps %reply
  99.          Else
  100.             %reply := "Y"
  101.          EndIf
  102.          If $equal %reply Y
  103.             Delete %dfile
  104.          EndIf
  105.       EndIf
  106.    Else
  107.       %handle := fclose
  108.       Delete %dfile
  109.    EndIf
  110. EndIf
  111.  
  112. SendWait "@qkey prompts^M" <COMMAND>
  113.  
  114. %ptrname := "%updir\@packet.PTR"
  115. If Exists %ptrname
  116.    SendWait r^M "<PTRUP>"
  117.    Upload zmodem %ptrname
  118.    Wait "<PTRFILE>"
  119.    SendWait 2^M "<COMMAND>"
  120.    Ask "Delete .PTR file from upload directory? " %reply 1 1 Y
  121.    $caps %reply
  122.    If $eq(%reply,"Y")
  123.       Delete %ptrname
  124.    EndIf
  125. EndIf
  126.  
  127. %repname := "%updir\@packet.REP"
  128. If Exists %repname
  129.    SendWait u^M <UPLOAD>
  130.    Upload zmodem %repname
  131.    Wait <COMMAND>
  132.    If %NoError
  133.       Delete %repname
  134.    EndIf
  135. EndIf
  136.  
  137. SendWait d^M <DOWNLOAD> <DLASK> "<NO TRANSFER>"
  138. If Had 2
  139.    SendWait ~y^M <DOWNLOAD>
  140. EndIf
  141. If Had 1
  142.    Download zmodem !
  143. EndIf
  144. SendWait ~g^M <HANGUP> "NO CARRIER" <COMMAND>
  145. If Had 3
  146.    SendWait ~g^M <HANGUP> "NO CARRIER"
  147. EndIf
  148. If Had 1
  149.    Wait "NO CARRIER"
  150. EndIf
  151. If $ne("%port","%dport")
  152.    Set Port=%dport
  153. EndIf
  154.